home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / clipper.exe / CLIPAPP.PRG next >
Text File  |  1985-08-03  |  5KB  |  157 lines
  1. *clipwage.PRG
  2. Set Talk Off
  3. Set Bell Off
  4. Set Index To CLIPWAGE
  5. Go Bottom
  6. Vname    = '                         '
  7. Vaddress = '                         '
  8. Vroad    = '                   '
  9. Vtown    = '                   '
  10. Vcounty  = '                   '
  11. Vwage    = 0.00
  12. Vemp     = 0
  13. Clear
  14. Set Color To 7/0,R/W
  15. @ 1,0 Say   "╔══════════════════════════════════════════════════════════════════════════════╗"
  16. @ 2,0 Say   "║"
  17. Set Color To W+/R, R/W
  18. @ 2,1 Say    "                  C L I P P E R  dBASE III True compiler                      "
  19. Set Color To 7/0,R/W
  20. @ 2,79 Say  "║"
  21. @ 3,0 Say   "║"
  22. Set Color To W+/R, R/W
  23. @ 3,1 Say    "                                                                              "
  24. Set Color To 7/0,R/W
  25. @ 3,79 Say  "║"
  26. @ 4,0 Say   "║"
  27. Set Color To W+/R, R/W
  28. @ 4,1 Say    "               Demonstration of DATA ENTRY SPEED on a database                "
  29. Set Color To 7/0,R/W
  30. @ 4,79 Say  "║"
  31. @ 5,0 Say   "║"
  32. Set Color To W+/R, R/W
  33. @ 5,1 Say   "                     using an INDEX FILE on the field NAME                     "
  34. sele 1
  35. Set Color To 7/0,R/W
  36. @ 5,79 Say  "║"
  37. @ 6,0 Say   "╚══════════════════════════════════════════════════════════════════════════════╝"
  38. @ 8,4 Say   "┌─────────────────────────────────────┐"
  39. @ 9,4 Say   "│"
  40. Set Color To W+/R, R/W
  41. @ 9,5 Say    "  Name :                             "
  42. Set Color To 7/0,R/W
  43. @ 9,42 Say  "│"
  44. @ 10,4 Say  "└─────────────────────────────────────┘"
  45. @ 8,50 SAY   "┌────────────────────────┐"
  46. @ 9,50 SAY   "│"
  47. SET COLO TO W+/R, R/W
  48. @ 9,51 SAY    " Record No :            "
  49. SET COLO TO 7/0,R/W
  50. @ 9,75 SAY  "│"
  51. @ 10,50 SAY  "└────────────────────────┘"
  52. @ 11,4 Say  "┌─────────────────────────────────────┐    ┌──────────────────────────────┐"
  53. @ 12,4 Say  "│"
  54. Set Color To W+/R, R/W
  55. @ 12,5 Say   " Address :                           "
  56. Set Color To 7/0,R/W
  57. @ 12,42 Say "│"
  58. @ 12,47 Say "│"
  59. Set Color To W+/R, R/W
  60. @ 12,48 Say  " Road :                     "
  61. Set Color To 7/0,R/W
  62. @ 12,78 Say "│"
  63. @ 13,4 Say  "└─────────────────────────────────────┘    └──────────────────────────────┘"
  64. @ 14,4 Say  "┌─────────────────────────────┐      ┌───────────────────────────────┐"
  65. @ 15,4 Say  "│"
  66. Set Color To W+/R, R/W
  67. @ 15,5 Say   "  Town :                     "
  68. Set Color To 7/0,R/W
  69. @ 15,34 Say "│      │"
  70. Set Color To W+/R, R/W
  71. @ 15,42 Say " County :                     "
  72. Set Color To 7/0,R/W
  73. @ 15,73 Say "│"
  74. @ 16,4 Say  "└─────────────────────────────┘      └───────────────────────────────┘"
  75. @ 17,4 Say  "╔══════════════════════╗"
  76. @ 18,4 Say  "║"
  77. Set Color To W+/R, R/W
  78. @ 18,5 Say   "  Salary :            "
  79. Set Color To 7/0,R/W
  80. @ 18,27 Say "║"
  81. @ 19,4 Say  "╚══════════════════════╝             ╔═══════════════════════════════╗"
  82. @ 20,4 Say  "╔═══════════════════════╗            ║"
  83. Set Color To W+/R, R/W
  84. @ 20,42 Say "Started employment :           "
  85. Set Color To 7/0,R/W
  86. @ 20,73 Say "║"
  87. @ 21,4 Say  "║"
  88. Set Color To W+/R, R/W
  89. @ 21,5 Say  "  Employee No. :       "
  90. Set Color To 7/0,R/W
  91. @ 21,28 Say "║            ╚═══════════════════════════════╝"
  92. @ 22,4 Say  "╚═══════════════════════╝"
  93. Set Color To r+/0,r+/0
  94. Skey = ' '
  95. Set Function 10 To 'exit'
  96. Lpr = .T.
  97. Vname    = '                        '
  98. Vaddress = '                        '
  99. Vroad    = '                   '
  100. Vtown    = '                   '
  101. Vcounty  = '                   '
  102. Vwage    = 0.00
  103. Vemp     = 0
  104. Vstart   = Ctod("  /  /  ")
  105. Do While Lpr
  106.   set color to r+,r+
  107.   @ 23,10 Say "              Hit PAGEDOWN KEY to bypass data entry           "
  108.   set color to gr+/+r
  109.   @ 9,66 say str(recno(),3)
  110.   set color to /r, /r
  111.   @ 9,17 Get vname
  112.   @ 12,17 Get vaddress
  113.   @ 12,56 Get vroad
  114.   @ 15,14 Get vtown
  115.   @ 15,53 Get vcounty
  116.   @ 18,16 Get vwage PICT "999999.99"
  117.   @ 21,22 Get vemp PICT "999"
  118.   @ 20,63 Get vstart
  119.   Read
  120.   Clear Gets
  121.   Goahead = Space(4)
  122.   set color to w+/r
  123.   @ 23,10 Say "Hit F10 to accept data above, or RETURN to edit -->" Get goahead Pict '!!!!'
  124.   read
  125.   clear Gets
  126.   if Substr(goahead,1,4) <> 'EXIT'
  127.     Loop
  128.   endif
  129.   GoAhead = Space(4)
  130.   set color to w+/r
  131.   @ 23,10 Say "Hit RETURN to continue, or F10 to Exit -->         " Get GoAhead Pict '!!!!'
  132.   Read
  133.   Clear Gets
  134.   if len(trim(vname)) > 0
  135.     Append Blank
  136.     Replace Name With Vname
  137.     Replace Address With Vaddress
  138.     Replace Road With Vroad
  139.     Replace Town With Vtown
  140.     Replace County With Vcounty
  141.   endif
  142.   if Substr(goahead,1,4) = 'EXIT'
  143.     Lpr = .F.
  144.     Set Color To 7/0,7/0
  145.     Loop
  146.   Endif
  147.   Vname    = '                        '
  148.   Vaddress = '                        '
  149.   Vroad    = '                   '
  150.   Vtown    = '                   '
  151.   Vcounty  = '                   '
  152.   Vwage    = 0.00
  153.   Vemp     = 0
  154.   Vstart   = CTOD("  /  /  ")
  155. Enddo
  156. Set Color To 7/0,7/0
  157. Return